100 DIMC(4),G(4):POKE53281,15 101 SO = 54272:FOR T=SO TO SO+24:POKET,0:NEXT:X=0 102 POKESO+24,15:POKESO+5,17:POKESO+6,241 300 PRINT"[147][144]MIND BOGGLE":FORT=1TO 1000:NEXT 340 PRINT"[147]" 350 PRINT "[144]  1 [146]  2 [146]  3 [146]  4 [146] [156] 5 [146]  6 [146][144]" 365 PRINTSPC(6)"[144]I AM CHOOSING 4 COLORS NOW[144]":FORL=1TO100 366 POKES2,INT(RND(1)*128)+128:FOR M=1 TO 10:NEXTM:NEXTL:POKES2,0:GOSUB4050 400 A$="123456":R=INT(RND(1)*6)+1:A1$=MID$(A$,R,1):A1=VAL(A1$) 401 R=INT(RND(1)*6)+1:A2$=MID$(A$,R,1):IFA1$=A2$THEN401 402 A2=VAL(A2$) 403 R=INT(RND(1)*6)+1:A3$=MID$(A$,R,1):IFA1$=A3$ORA2$=A3$THEN403 404 A3=VAL(A3$) 405 R=INT(RND(1)*6)+1:A4$=MID$(A$,R,1):IFA1$=A4$ORA2$=A4$ORA3$=A4$THEN405 406 A4=VAL(A4$) 500 FOR T= 1TO 1000:NEXT 510 POKESO,100:POKESO+1,100:POKESO+4,17:FORL=1TO100:NEXTL:POKESO+4,16 540 POKE214,21:POKE211,5:PRINT:PRINT" " 550 X$="":POKE214,21:POKE211,0:PRINT:INPUT "SELECT COLORS";X$ 600 IFLEN(X$)<>4THENGOSUB4050:GOTO3300 700 FORE=1TO4:V=VAL(MID$(X$,E,1)) 705 IFV<1ORV>6THENGOSUB4050:GOTO3300 710 NEXTE 900 X=X+1:B=0:W=0:AA$=A1$+A2$+A3$+A4$ 901 FORJ=1TO4 902 G(J)=VAL(MID$(X$,J,1)) 903 C(J)=VAL(MID$(AA$,J,1)) 904 IFG(J)=C(J)THENB=B+1:G(J)=0:C(J)=0 905 NEXTJ 906 FORJ=1TO4:IFC(J)=0THEN912 907 H=0:FORK=1TO4 908 IFC(J)=0THEN911 909 IFC(J)<>G(K)THEN911 910 H=1:G(K)=0:C(J)=0 911 NEXTK:W=W+H 912 NEXTJ 1000 ONXGOTO1100,1105,1110,1115,1120,1125,1130,1135,1140,1145 1100 PRINT" 1 ";:GOTO1200 1105 PRINT" 2 ";:GOTO1200 1110 PRINT" 3 ";:GOTO1200 1115 PRINT" 4 ";:GOTO1200 1120 PRINT" 5 ";:GOTO1200 1125 PRINT" 6 ";:GOTO1200 1130 PRINT" 7 ";:GOTO1200 1135 PRINT" 8 ";:GOTO1200 1140 PRINT" 9 ";:GOTO1200 1145 PRINT"10 "; 1200 X1=VAL(LEFT$(X$,1)):X2=VAL(MID$(X$,2,1)):X3=VAL(MID$(X$,3,1)) 1210 X4=VAL(RIGHT$(X$,1)) 1220 P=0:T=0 1300 P=P+1:ONX1GOTO1700,1701,1702,1703,1704,1705 1400 P=P+1:ONX2GOTO1700,1701,1702,1703,1704,1705 1500 P=P+1:ONX3GOTO1700,1701,1702,1703,1704,1705 1600 P=P+1:ONX4GOTO1700,1701,1702,1703,1704,1705 1700 PRINT"[144] [146] ";:POKESO+1,100:GOTO1750 1701 PRINT" [146] ";:POKESO+1,124:GOTO1750 1702 PRINT" [146] ";:POKESO+1,140:GOTO1750 1703 PRINT" [146] ";:POKESO+1,166:GOTO1750 1704 PRINT"[156] [146] ";:POKESO+1,150:GOTO1750 1705 PRINT" [146] ";:POKESO+1,185:GOTO1750 1750 POKESO+4,17:FORL=1TO99:NEXTL:POKESO+4,16:FORL=1TO250:NEXTL 1751 ONPGOTO1400,1500,1600 1761 ONTGOTO2072,2073,2074,2075 1800 PRINT" ";:IFB=0THEN2000 1810 GOSUB3100 1820 ONBGOTO1900,1901,1902,1903 1900 PRINT"[144][209]";:GOTO2000 1901 PRINT"[144][209][209]";:GOTO2000 1902 PRINT"[144][209][209][209]";:GOTO2000 1903 PRINT"[144][209][209][209][209]";:GOTO4000 2000 IFW=0THEN2060 2010 GOSUB3200 2020 ONWGOTO2050,2051,2052,2053 2050 PRINT"[144][209][146]":GOTO2060 2051 PRINT"[144][209][209][146]":GOTO2060 2052 PRINT"[144][209][209][209][146]":GOTO2060 2053 PRINT"[144][209][209][209][209][146]" 2060 PRINT"[144]":PRINT" " 2062 PRINT"" 2065 IFX<>10THEN500 2066 POKESO+4,32:FORL=1TO15:FORM=200TO220+L*2:POKESO+1,M:NEXTM:NEXTL 2068 POKESO+4,32 2070 PRINT"":PRINT" "; 2071 T=T+1:ONA1GOTO1700,1701,1702,1703,1704,1705 2072 T=T+1:ONA2GOTO1700,1701,1702,1703,1704,1705 2073 T=T+1:ONA3GOTO1700,1701,1702,1703,1704,1705 2074 T=T+1:ONA4GOTO1700,1701,1702,1703,1704,1705 2075 PRINT" ":PRINT"[144] CORRECT COLORS PRESS RETURN" 2080 IFPEEK(197)<>1THEN2080 2085 GETT$:PRINT"[147]TOO BAD YOU MISSED!" 2086 PRINT"10 TRIES IS ENOUGH." 2090 POKESO+4,33 2096 FORL=1TO6:POKESO+1,80:FORM=1TO400:NEXTM:POKESO+4,32:FORM=1TO400:NEXTM 2098 NEXTL:POKESO+4,32 3000 GETT$:PRINT"[147][144] WANT TO PLAY AGAIN?" 3005 PRINT "YES OR NO?" 3010 IFPEEK(197)=25THENGETT$:POKE198,0:GOTO101 3012 IFPEEK(197)=39THEN3014 3013 GOTO3010 3014 GETT$:PRINT"[147][144]CHICKEN!!" :PRINT:PRINT:END 3100 POKESO+4,17:FORL=100TO154:POKESO+1,L:NEXTL:POKESO+4,16:RETURN 3200 POKESO+4,17:FORL=100TO48STEP-1:POKESO+1,L:NEXTL:POKESO+4,16:RETURN 3300 PRINT"[145]ILLEGAL INPUT![145]":FORL=1TO500:NEXTL 3301 FORL=1TO999:NEXTL:GOSUB4050:GOTO500 4000 PRINT:PRINT:PRINT"[144]YOU W I N !! PRESS RETURN" 4005 POKESO+4,33:FORM=180TO100STEP-5:POKES2,M:NEXTM:FORM=100TO200STEP 5 4006 POKESO+1,M:NEXT M:POKE SO+4,32 4010 IFPEEK(197)<>1THEN4005 4011 PRINT"[147]"; 4015 IFX=1THENPRINT" LUCKY GUESS!":GOTO4020 4016 IFX=2ORX=3THENPRINT" EXPERT!!!":GOTO4020 4017 IFX=4ORX=5ORX=6THENPRINT" PRETTY GOOD!":GOTO4020 4018 IFX=7ORX=8THENPRINT"[156] SO SO!":GOTO4020 4019 PRINT" YOU BARELY GOT IT!" 4020 POKESO+4,33:FORL=1TO20:FORM=148TO200STEP5:POKES2,M:NEXTM 4021 FOR M=200TO 148STEP-5:POKESO+1,M:NEXTM:NEXTL:POKESO+4,32 4030 GOTO3000 4050 PRINT" ":RETURN